home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C/C++ Users Group Library 1996 July
/
C-C++ Users Group Library July 1996.iso
/
listings
/
v_02_01
/
2n01050b
< prev
next >
Wrap
Text File
|
1990-12-02
|
316b
|
16 lines
function leap(y : longint) : boolean;
begin
if y mod 4 <> 0 then
leap := false
else if y mod 100 <> 0 then
leap := true
else if y mod 400 = 0 then
leap := true
else
leap := false
end;